<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.ctb</name>
<id>-1</id>
<cardCount>386</cardCount>
<cardID>2864</cardID>
<listID>114041</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>440</height>
</cardSize>
<script>function pictureClickanswer "OK"send mouseDown to button Hereend pictureClickOn StartupEnd Startup------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on closeStack -- Called upon HOME or OPEN STACKdelete menu "Help"reset menuBar -- Don't display CATEGORIES menuend closeStack------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on openStackglobal QToperationalput 1 into QToperationalset lockMessages to trueQTMovie versionput the result into xxxxput it into kkkif "Error" is in xxxx thenanswer "QuickTime is not available, some options will not be available"put 0 into QToperationalend ifset lockMessages to falsehelpMenu -- Display CATEGORIES menuend openStack------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on suspendStack -- Called upon HELPreset menuBar -- Don't display CATEGORIES menuend suspendStack------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on resumeStack -- Called upon return from HELPhelpMenu -- Re-display CATEGORIES menuend resumeStack------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------on helpMenu-- Display Help menuif there is a menu "Help" then exit helpMenucreate menu "Help"put helpMenuItems() into menu "Help"set the menuMessage of menuItem "Help Factbook" of Menu "Help" to go to Card 3end helpMenu------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------function helpMenuItemsreturn ¬"Help Factbook" & returnend helpMenuItemson wayzataGoTo cardNameset cursor to watchvisual iris open slowgo to card cardNameend wayzataGoToon wayzataGoToNum Num, cardNameset cursor to watchvisual iris open slowgo to card Numend wayzataGoToNumon wayzataGoToBackset cursor to watchvisual iris open slowgo to Backend wayzataGoToBackon WayzataGoPreviousset cursor to watchvisual iris open slowgo previousend WayzataGoPreviouson WayzataGoNextset cursor to watchvisual iris open slowgo nextend WayzataGoNexton wayzataViewMap nameput "WFB_1993:Maps:PICT:" & name into PICT-- put "" & name into PICTpicture PICT ,File,,,true,deepest-- Put the Result & " [" & PICT &"]"if the result is not empty thenanswer "The Map could not be displayed, error:" & return & the resultend ifend wayzataViewMapon wayzataViewXMap nameput "WFB_1993:Maps:RegionCIA:pict:" & name into PICT-- put "" & name into PICTpicture PICT ,File,,,true,deepest-- Put the Result & " [" & PICT &"]"if the result is not empty thenanswer "The Map could not be displayed, error:" & return & the resultend
